home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / N-P / OOP for C.sit / OIC.ƒ / coord.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-12-09  |  1.3 KB  |  92 lines  |  [TEXT/KAHL]
  1. /*
  2.  *            quick-n-dirty class for the Objects-in-C tester
  3.  *
  4.  *            Copyright © John Wainwright 1988
  5.  *
  6.  */
  7.  
  8. #include "oic.h"
  9. #include "generics.h"
  10.  
  11. typedef struct                    /* coord IVs                            */
  12. {
  13.     float    x;
  14.     float    y;
  15. } coord_i;
  16. typedef object coord;
  17.  
  18. class    Coord;
  19.  
  20. /* ------------------------------ Coord Ops -------------------------- */
  21.  
  22. static coord
  23. _new(self, c, args)
  24.     coord    self;
  25.     coord_i    *c;
  26.     struct
  27.     {
  28.         double    x;
  29.         double  y;
  30.     } *args;
  31. {
  32.     c->x = args->x;
  33.     c->y = args->y;
  34.     return Super(self);
  35. }
  36.  
  37. static coord
  38. _offset(self, c, args)
  39.     coord    self;
  40.     coord_i    *c;
  41.     struct { double dx, dy; } *args;
  42. {
  43.     c->x += args->dx;
  44.     c->y += args->dy;
  45.     return self;
  46. }
  47.  
  48. static int
  49. _xCoord(self, c)
  50.     coord    self;
  51.     coord_i    *c;
  52. {
  53.     return c->x;
  54. }
  55.  
  56. static int
  57. _yCoord(self, c)
  58.     coord    self;
  59.     coord_i    *c;
  60. {
  61.     return c->y;
  62. }
  63.  
  64. static string
  65. _replist(self, c)
  66.     coord    self;
  67.     coord_i *c;
  68. {
  69.     char s[100];
  70.  
  71.     sprintf(s, "[%.2f, %.2f]", c->x, c->y);
  72.     return New(String, s);
  73. }
  74.  
  75. /* ------------------------------ Init Class ----------------------- */
  76.  
  77. defGeneric(xCoord,    xCoordGeneric,    "xCoord")
  78. defGeneric(yCoord,    yCoordGeneric,    "yCoord")
  79. externGeneric(offset, offsetGeneric)
  80.  
  81. InitCoordClass()
  82. {
  83.     Coord = NewClass(sizeof(coord_i), 0, "Coord", IndexMixin, END);
  84.     AddMethods(Coord,
  85.         newGeneric,            _new,
  86.         offsetGeneric,        _offset,
  87.         repListGeneric,        _replist,
  88.         xCoordGeneric,        _xCoord,
  89.         yCoordGeneric,        _yCoord,
  90.         END);
  91. }
  92.